home *** CD-ROM | disk | FTP | other *** search
- /* VLab-Arexx-Script
- ----------------------------------------------------
- Scannen einer Bilderserie mit SCAN-REQUESTER.
- Auflösung und Farbtiefe müssen vorher im Einlesen-
- Fenster eingestellt werden. Die gescannten Bilder
- werden in einem Verzeichnis nach Wahl im Vlab-Format
- mit durchnummerierten Dateinamen abgelegt und können
- mit SequenceToAmiga.rx nach ILBM gewandelt werden.
- ----------------------------------------------------
- */
-
- OPTIONS RESULTS
- OPTIONS FAILAT 20
-
- ADDRESS VLAB
- 'SAVESETTINGS t:OldSettings'
- SCREENTOFRONT
- ACTIVATEWINDOW
- AUTOPREVIEW OFF
- AUTODISPLAY OFF
- SAVEICONS OFF
- BLACKBACKGROUND ON
-
- GETPATH SEQUENCE
- 'SETPATH USER "'RESULT'"'
- 'SETPATTERN USER ""'
- 'ASLREQUEST "Serie speichern"'
-
- if RC = 0 then
- bildname = RESULT
- nummer = "0"
- FALSE = 0
- TRUE = 1
- end = FALSE
-
- ADDRESS VLAB
- do while end == FALSE
- 'REQUEST TITLE
- "Bilderserie" "Name: 'bildname'.'nummer'"
- GADGETS Scan|Ende'
- select
- when RESULT = 1 then
- do
- SCAN
- 'SAVEAS "'bildname'.'nummer'"'
- do
- nummer = nummer + 1
- end
- end
- otherwise end = TRUE
- end
- end
-
- ADDRESS VLAB
- 'LOADSETTINGS t:OldSettings'
-